home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
mrcry204.zip
/
GIBBS.EKA
< prev
next >
Wrap
Text File
|
1991-03-04
|
387b
|
17 lines
; Graphic demo of Gibbs phenomenon.
; Fourier series convergence is slowest near discontinuities.
; the function
f(x) := SUM(SIN((2n+1)x)/(2n+1),n,1,20)
; the domain for the plot
GBOUNDS 0, PI
PLOT f
; Some commands which make the plot look nicer.
GSTYLE 1
GPOINTS 100
TITLE "Gibbs phenomenon"
SUBTITLE "for the square wave"
YLABEL "20 Fourier terms"